home *** CD-ROM | disk | FTP | other *** search
- object DllImportTestForm: TDllImportTestForm
- Left = 216
- Top = 108
- Width = 392
- Height = 375
- Caption = 'Testing of DLL import methods'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object rgImportMethod: TRadioGroup
- Left = 8
- Top = 8
- Width = 113
- Height = 145
- Caption = '&DLL Import Method'
- ItemIndex = 0
- Items.Strings = (
- '&Implicit'
- '&Explicit'
- '&HVDll')
- TabOrder = 0
- end
- object gbCallProcs: TGroupBox
- Left = 136
- Top = 8
- Width = 113
- Height = 145
- Caption = 'Call DLL Routines'
- TabOrder = 1
- object btnRoutine1: TButton
- Left = 14
- Top = 21
- Width = 75
- Height = 25
- Caption = 'Routine&1'
- TabOrder = 0
- OnClick = btnRoutine1Click
- end
- object btnRoutine2: TButton
- Left = 14
- Top = 51
- Width = 75
- Height = 25
- Caption = 'Routine&2'
- TabOrder = 1
- OnClick = btnRoutine2Click
- end
- object btnRoutine3: TButton
- Left = 14
- Top = 81
- Width = 75
- Height = 25
- Caption = 'Routine&3'
- TabOrder = 2
- OnClick = btnRoutine3Click
- end
- object btnRoutine4: TButton
- Left = 14
- Top = 111
- Width = 75
- Height = 25
- Caption = 'Routine&4'
- TabOrder = 3
- OnClick = btnRoutine4Click
- end
- end
- object gbLogging: TGroupBox
- Left = 8
- Top = 160
- Width = 369
- Height = 185
- Caption = 'HVDll Logging'
- TabOrder = 2
- object LoggingMemo: TMemo
- Left = 2
- Top = 15
- Width = 365
- Height = 168
- Align = alClient
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- object gbHVDll: TGroupBox
- Left = 256
- Top = 8
- Width = 121
- Height = 145
- Caption = 'HVDll Extras'
- TabOrder = 3
- object btnLoadDll: TButton
- Left = 14
- Top = 21
- Width = 75
- Height = 25
- Caption = '&Load'
- TabOrder = 0
- OnClick = btnLoadDllClick
- end
- object btnUnloadDll: TButton
- Left = 14
- Top = 51
- Width = 75
- Height = 25
- Caption = '&Unload'
- TabOrder = 1
- OnClick = btnUnloadDllClick
- end
- object btnHook: TButton
- Left = 14
- Top = 81
- Width = 75
- Height = 25
- Caption = 'H&ook 1'
- TabOrder = 2
- OnClick = btnHookClick
- end
- object btnUnhook: TButton
- Left = 14
- Top = 111
- Width = 75
- Height = 25
- Caption = 'Unhoo&k 1'
- Enabled = False
- TabOrder = 3
- OnClick = btnUnhookClick
- end
- end
- end
-